home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / hiz / 09 / 09.exe / adynware.exe / perl / lib / ops.pm < prev    next >
Encoding:
Perl POD Document  |  1999-12-28  |  815 b   |  43 lines
  1. package ops;
  2.  
  3. use Opcode qw(opmask_add opset invert_opset);
  4.  
  5. sub import {
  6.     shift;
  7.     opmask_add(invert_opset opset(@_)) if @_;
  8. }
  9.  
  10. sub unimport {
  11.     shift;
  12.     opmask_add(opset(@_)) if @_;
  13. }
  14.  
  15. 1;
  16.  
  17. __END__
  18.  
  19. =head1 NAME
  20.  
  21. ops - Perl pragma to restrict unsafe operations when compiling
  22.  
  23. =head1 SYNOPSIS  
  24.  
  25.   perl -Mops=:default ...    # only allow reasonably safe operations
  26.  
  27.   perl -M-ops=system ...     # disable the 'system' opcode
  28.  
  29. =head1 DESCRIPTION
  30.  
  31. Since the ops pragma currently has an irreversable global effect, it is
  32. only of significant practical use with the C<-M> option on the command line.
  33.  
  34. See the L<Opcode> module for information about opcodes, optags, opmasks
  35. and important information about safety.
  36.  
  37. =head1 SEE ALSO
  38.  
  39. Opcode(3), Safe(3), perlrun(3)
  40.  
  41. =cut
  42.  
  43.